home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / actwin / docs / miniact.smm < prev    next >
Encoding:
INI File  |  1993-04-19  |  30.4 KB  |  1,523 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     NEC Silentwriter2 90
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Example of how to interface ACT! to AmiPro version 3.0
  19.     
  20.     
  21.     
  22.     
  23.     735508813
  24.     11
  25.     734994430
  26.     548
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Body Text
  55.     2
  56.     [fnt]
  57.         Arial
  58.         240
  59.         0
  60.         16384
  61.     [algn]
  62.         1
  63.         1
  64.         216
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         1
  95.         0
  96.         16
  97.         0
  98.         0
  99.     [nfmt]
  100.         272
  101.         1
  102.         3
  103.         .
  104.         ,
  105.         $
  106.     Body Text
  107.     0
  108.     0
  109. [tag]
  110.     Body Single
  111.     3
  112.     [fnt]
  113.         Times New Roman
  114.         240
  115.         0
  116.         49152
  117.     [algn]
  118.         1
  119.         1
  120.         0
  121.         0
  122.         0
  123.     [spc]
  124.         33
  125.         273
  126.         1
  127.         0
  128.         0
  129.         1
  130.         100
  131.     [brk]
  132.         4
  133.     [line]
  134.         8
  135.         0
  136.         1
  137.         0
  138.         1
  139.         1
  140.         1
  141.         10
  142.         10
  143.         1
  144.     [spec]
  145.         0
  146.         0
  147.         
  148.         0
  149.         1
  150.         1
  151.         0
  152.         0
  153.         0
  154.         0
  155.     [nfmt]
  156.         280
  157.         1
  158.         2
  159.         .
  160.         ,
  161.         $
  162.     Body Single
  163.     0
  164.     0
  165. [tag]
  166.     Function
  167.     4
  168.     [fnt]
  169.         Arial
  170.         240
  171.         0
  172.         16385
  173.     [algn]
  174.         1
  175.         1
  176.         0
  177.         0
  178.         0
  179.     [spc]
  180.         33
  181.         244
  182.         1
  183.         0
  184.         0
  185.         1
  186.         100
  187.     [brk]
  188.         68
  189.     [line]
  190.         8
  191.         0
  192.         1
  193.         0
  194.         1
  195.         1
  196.         1
  197.         10
  198.         10
  199.         1
  200.     [spec]
  201.         0
  202.         1
  203.         
  204.         0
  205.         1
  206.         1
  207.         0
  208.         0
  209.         0
  210.         0
  211.     [nfmt]
  212.         272
  213.         1
  214.         3
  215.         .
  216.         ,
  217.         $
  218.     Body Text
  219.     0
  220.     0
  221. [lay]
  222.     Standard
  223.     513
  224.     [rght]
  225.         15840
  226.         12240
  227.         1
  228.         1440
  229.         1440
  230.         1
  231.         1440
  232.         1440
  233.         0
  234.         1
  235.         0
  236.         1
  237.         0
  238.         2
  239.         1
  240.         1440
  241.         10800
  242.         12
  243.         1
  244.         720
  245.         1
  246.         1440
  247.         1
  248.         2160
  249.         1
  250.         2880
  251.         1
  252.         3600
  253.         1
  254.         4320
  255.         1
  256.         5040
  257.         1
  258.         5760
  259.         1
  260.         6480
  261.         1
  262.         7200
  263.         1
  264.         7920
  265.         1
  266.         8640
  267.     [hrght]
  268.     [lyfrm]
  269.         1
  270.         11200
  271.         0
  272.         0
  273.         12240
  274.         1440
  275.         0
  276.         1
  277.         3
  278.         1 0 0 0 0 0 0
  279.         0
  280.         0
  281.         1
  282.     [frmlay]
  283.         1440
  284.         12240
  285.         1
  286.         1440
  287.         72
  288.         1
  289.         792
  290.         1440
  291.         0
  292.         1
  293.         0
  294.         1
  295.         1
  296.         0
  297.         1
  298.         1440
  299.         10800
  300.         1
  301.         3
  302.         9360
  303.     [txt]
  304. MIniACT! AmiPro 3.0 Version
  305.  
  306. Copyright 1993 Contact Software International
  307.  
  308. >
  309.     [frght]
  310.     [lyfrm]
  311.         1
  312.         13248
  313.         0
  314.         14400
  315.         12240
  316.         15840
  317.         0
  318.         1
  319.         3
  320.         1 0 0 0 0 0 0
  321.         0
  322.         0
  323.         2
  324.     [frmlay]
  325.         15840
  326.         12240
  327.         1
  328.         1440
  329.         792
  330.         1
  331.         14472
  332.         1440
  333.         0
  334.         1
  335.         0
  336.         1
  337.         1
  338.         0
  339.         1
  340.         1440
  341.         10800
  342.         2
  343.         2
  344.         4680
  345.         3
  346.         9360
  347.     [txt]
  348. >
  349. [elay]
  350. [l1]
  351.     0
  352. [pg]
  353.     6
  354.     52 0 14 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  355.     103 0 79 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  356.     152 0 72 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  357.     204 0 41 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  358.     256 0 32 0 0 1 0 65535 20 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  359.     290 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  360. [edoc]
  361. <+@><:S+-1>'------------------------------------------------------
  362.  
  363. <+@><:S+-1>'MiniACT! Contact dialog definition 
  364.  
  365. <+@><:S+-1>'--------------------------------------------------------
  366.  
  367. <:S+-1><:f200,,>DIALOG    MiniACT
  368.  
  369. <:f200,,>-2134376448    26    72    70    224    148    ""    ""    "MiniACT!"
  370.  
  371. <:f200,,>9    7    40    10    1000    1342177280    "static"    "<:f><:f200,,>Company"    0 
  372.  
  373. <:f200,,>9    21    40    10    1001    1342177280    "static"    "C<:f><:f200,,>ontact"    0 
  374.  
  375. <:f200,,>9    36    40    10    1002    1342177280    "static"    "<:f><:f200,,>Phone"    0 
  376.  
  377. <:f200,,>9    52    40    10    1003    1342177280    "static"    "Address <:f><:f200,,>1"    0 
  378.  
  379. <:f200,,>9    67    40    10    1005    1342177280    "static"    "Address <:f><:f200,,>2"    0 
  380.  
  381. <:f200,,>9<:f><:f200,,>    82    40    10    1006    1342177280    "static"    "<:f><:f200,,>City"    0 
  382.  
  383. <:f200,,>9    97    40    10    1007    1342177280    "static"    "<:f><:f200,,>State"    0 
  384.  
  385. <:f200,,>9    112    40    10    1008    1342177280    "static"    "<:f><:f200,,>Zip"    0 
  386.  
  387. <:f200,,>9    128    60<:f><:f200,,>    10    1009    1342177280    "static"    "Last Results"    0 
  388.  
  389. <:f200,,>53    4    103    12    8002    1350631552    "edit"    ""    0 
  390.  
  391. <:f200,,>53    20    103    12    8003    1350631552    "edit"    ""    0 
  392.  
  393. <:f200,,>53    35    63    12    8004    1350631552    "edit"    ""    0 
  394.  
  395. <:f200,,>53    50    103    12    8005    1350631552    "edit"    ""    0 
  396.  
  397. <:f200,,>53    65    103    12    8006    1350631552    "edit"    ""    0 
  398.  
  399. <:f200,,>53    80    63    12    8007    1350631552    "edit"    ""    0 
  400.  
  401. <:f200,,>53    96    103    12    8008    1350631552    "edit"    ""    0 
  402.  
  403. <:f200,,>53    111    47    12    8009    1350631552    "edit"    ""    0 
  404.  
  405. <:f200,,>53    126    103    12    8010    1350631552    "edit"    ""    0 
  406.  
  407. <:f200,,>176    124    40    14    2<:f><:f200,,>    1342373889    "button"    "Cancel"    0 
  408. <:f>
  409.  
  410. <:f200,,>176    4    40    14    3<:f><:f200,,>    1342373888    "button"    "&Next"    0 
  411.  
  412. <:f200,,>176    22    40    14    4<:f><:f200,,>    1342373888    "button"    "&Previous"    0 
  413.  
  414. <:f200,,>176    40    40    14    5<:f><:f200,,>    1342373888    "button"    "&Insert"    0 
  415.  
  416. <:f200,,>176    56    40    14    6<:f><:f200,,>    1342373888    "button"    "&Address"    0 
  417.  
  418. <:f200,,>176    73    40    14    7<:f><:f200,,>    1342373888    "button"    "&Dial"    0 
  419.  
  420. <:f200,,>176    90    40    14    8<:f><:f200,,>    1342373888    "button"    "&Lookup"    0 
  421.  
  422. <:f200,,>176    107    40    14    9<:f><:f200,,>    1342373888    "button"    "&Save"    0 
  423.  
  424. <+@><:S+-1><:f200,,>END DIALOG<:f>
  425.  
  426. <+@><:S+-1>'------------------------------------------------------
  427.  
  428. <+@><:S+-1>'MiniACT! LookUp dialog definition 
  429.  
  430. <+@><:S+-1>'--------------------------------------------------------
  431.  
  432. <:S+-1><:f200,,>DIALOG    Lookup
  433.  
  434. <:f200,,>-2134376448    6    80<:f><:f200,,>    8<:f><:f200,,>2<:f><:f200,,>    221    67    ""    ""    "MiniACT! LookUp"
  435.  
  436. <:f200,,>16    19    88    95<:f><:f200,,>    9501<:f><:f200,,>    1344274435    "combobox"    ""    0 
  437.  
  438. <:f200,,>120    19    88<:f><:f200,,>    12    8001<:f><:f200,,>    1350631552    "edit"    ""    0 
  439.  
  440. <:f200,,>16<:f><:f200,,>    8    52    10    1000    1342177280    "static"    "<:f><:f200,,>Looku<:f><:f200,,>p Type<:f><:f200,,>"    0 
  441.  
  442. <:f200,,>120    8    40    10    1001    1342177280    "static"    "Looku<:f><:f200,,>p 
  443. <:f><:f200,,>Text"    0 
  444.  
  445. <:f200,,>120    41    40    14    3<:f><:f200,,>    1342373889    "button"    "OK"    0 
  446.  
  447. <:f200,,>172    41    40    14    2<:f><:f200,,>    1342373888    "button"    "Cancel"    0 
  448.  
  449. <+@><:S+-1><:f200,,>END DIALOG<:f>
  450.  
  451. <+@><:S+-1>
  452.  
  453. <+@><:S+-1><:f200,,>Function Main(<:f><:f200,,>Name$<:f><:f200,,>,Contact$,Phone$,Address$,Addr1$,City$,State$,Zip$,Results$<:f><:f200,,>)
  454.  
  455. <+@><:S+-1><:f200,,>    SingleStep(0<:f><:f200,,>)
  456.  
  457. <+@><:f200,,>    ChanNumAct = DDEInitiate("Actwin", "System")<:><:f>
  458.  
  459. <+@>
  460.  
  461. <+@><:S+-1><:f200,,>    If ChanNumAct = 0 Then
  462.  
  463. <+@><:S+-1><:f200,,>        Exec("ACTWIN.EXE","")
  464.  
  465. <+@><:S+-1><:f200,,>    EndIf
  466.  
  467. <+@><:S+-1><:#240,9360><:f200,,>    Call GetContactInfo(<:f><:f200,,>)
  468.  
  469. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  470.  
  471. <+@><:S+-1><:#278,9360>    'Display MiniACT! dialog 
  472.  
  473. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  474.  
  475. <+@><:S+-1><:#240,9360><:f200,,>    ContactBox:
  476.  
  477. <+@><:S+-1><:#240,9360><:f200,,>    <:f><:f200,,>    Box = DialogBox(".","MINIACT")<:f>
  478.  
  479. <+@><:S+-1><:#240,9360>    <:f200,,>    If Box = 3<:f><:f200,,> Then
  480.  
  481. <+@><:S+-1><:#240,9360><:f200,,>        <:f><:f200,,>    DDEExecute(ChanNumAct, "NEXTREC")
  482.  
  483. <+@><:S+-1><:#240,9360><:f200,,>            Call GetContactInfo()
  484.  
  485. <:#278,9360><:>    <:f200,,>    EndIf<:f><:f>
  486.  
  487. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  488.  
  489. <+@><:S+-1><:#278,9360>    'Goto previous 
  490.  
  491. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  492.  
  493. <+@><:S+-1><:#240,9360>    <:f200,,>    If Box = 4<:f><:f200,,> Then
  494.  
  495. <+@><:S+-1><:#240,9360><:f200,,>        <:f><:f200,,>    DDEExecute(ChanNumAct, "PREV<:f><:f200,,>REC")
  496.  
  497. <+@><:S+-1><:#240,9360><:f200,,>            Call G<:f><:f200,,>etContactInfo()
  498.  
  499. <:#278,9360><:>    <:f200,,>    EndIf<:f><:f>
  500.  
  501. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  502.  
  503. <+@><:S+-1><:#278,9360>    'Insert a new contact into ACT!
  504.  
  505. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  506.  
  507. <:#240,9360><:f200,,>        If Box = 5 Then
  508.  
  509. <+@><:S+-1><:#240,9360><:f200,,>            <:f><:f200,,>DDEExecute(ChanNumAct, "NEW_CONTACT DEFAULT")
  510.  
  511. <+@><:S+-1><:#240,9360><:f200,,>        <:f><:f200,,>    DBChannel<:f><:f200,,> = DDEInitiate("Actwin", "Database<:f><:f200,,>")<:><:f>
  512.  
  513. <:S+-1><:#240,9360><:f200,,>            Name$ = G<:f><:f200,,>etDialogField$(8002<:f><:f200,,>)
  514.  
  515. <:#240,9360><:f200,,>            Contact<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8003<:f><:f200,,>)<:f>
  516.  
  517. <:#240,9360><:f200,,>            Phone<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8004<:f><:f200,,>)<:f>
  518.  
  519. <:#240,9360><:f200,,>            Address<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8005<:f><:f200,,>)<:f>
  520.  
  521. <:#240,9360><:f200,,>            Addr1<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8006<:f><:f200,,>)<:f>
  522.  
  523. <:#240,9360><:f200,,>            City<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8007<:f><:f200,,>)<:f>
  524.  
  525. <:#240,9360><:f200,,>            State<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8008<:f><:f200,,>)<:f>
  526.  
  527. <:#240,9360><:f200,,>            Zip<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8009<:f><:f200,,>)<:f>
  528.  
  529. <:#240,9360><:f200,,>            Results$=GetDialogField$(8010)
  530.  
  531. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Name", Name<:f><:f200,,>$)
  532.  
  533. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Contact", Contact$)
  534.  
  535. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Phone", Phone$)
  536.  
  537. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Address", Address<:f><:f200,,>$)
  538.  
  539. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Addr1", Addr1<:f><:f200,,>$)
  540.  
  541. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "City", City$)
  542.  
  543. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "State", State$)
  544.  
  545. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Zip_Code", Zip$)
  546.  
  547. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Last_Results", Results<:f><:f200,,>$)
  548.  
  549. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEExecute(ChanNumAct, "SAVE")
  550.  
  551. <+@><:S+-1><:#278,9360>            <:f200,,>DDETerminate(DBChannel)<:f>
  552.  
  553. <+@><:S+-1><:#240,9360><:f200,,>            Call GetContactInfo()
  554.  
  555. <+@><:S+-1><:#240,9360><:f200,,>        EndIf
  556.  
  557. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  558.  
  559. <+@><:S+-1><:#278,9360>    'Type current contact address to open AmiPro Doc
  560.  
  561. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  562.  
  563. <:#240,9360><:><:f200,,>        If Box = 6 Then
  564.  
  565. <:#240,9360><:f200,,>            Name$ = G<:f><:f200,,>etDialogField$(8002<:f><:f200,,>)
  566.  
  567. <:#240,9360><:f200,,>            Contact<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8003<:f><:f200,,>)<:f>
  568.  
  569. <:#240,9360><:f200,,>            Address<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8005<:f><:f200,,>)<:f>
  570.  
  571. <:#240,9360><:f200,,>            Addr1<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8006<:f><:f200,,>)<:f>
  572.  
  573. <:#240,9360><:f200,,>            City<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8007<:f><:f200,,>)<:f>
  574.  
  575. <:#240,9360><:f200,,>            State<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8008<:f><:f200,,>)<:f>
  576.  
  577. <:#240,9360><:f200,,>            Zip<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8009<:f><:f200,,>)<:f>
  578.  
  579. <:f200,,>            Type ("{Contact<:f><:f200,,>$<:f><:f200,,>}<[>Enter]")
  580.  
  581. <+@><:S+-1>        <:f200,,>    Type<:f><:f200,,> ("{Name<:f><:f200,,>$}<[>Enter]"<:f><:f200,,>)
  582.  
  583. <+@><:S+-1><:#278,9360>            <:f200,,>If  Address<:f><:f200,,>$  <;> "   " Then
  584.  
  585. <+@><:S+-1><:#278,9360>            <:f200,,>    Type<:f><:f200,,> ("{Address<:f><:f200,,>$}<[>Enter]"<:f><:f200,,>)
  586.  
  587. <+@><:S+-1><:#278,9360>        <:f200,,>    EndIf
  588.  
  589. <+@><:S+-1><:#278,9360>        <:f200,,>    If  Addr1<:f><:f200,,>$  <;> "   " Then
  590.  
  591. <+@><:S+-1><:#278,9360>            <:f200,,>    Type <:f><:f200,,> ("{Addr1<:f><:f200,,>$}<[>Enter]"<:f><:f200,,>)
  592.  
  593. <+@><:S+-1><:#278,9360>        <:f200,,>    EndIf
  594.  
  595. <+@><:S+-1><:#278,9360>        <:f200,,>    Type<:f><:f200,,> ("{City$}<:f><:f200,,>, <:f><:f200,,>{State$} 
  596. <:f><:f200,,>{Zip$} <[>Enter]"<:f><:f200,,>)
  597.  
  598. <+@><:S+-1><:#240,9360><:f200,,>            Call G<:f><:f200,,>etContactInfo()
  599.  
  600. <+@><:S+-1><:#240,9360>    <:f200,,>    EndIf
  601.  
  602. <+@><:S+-1><:#278,9360><:>    '------------------------------------------------------
  603.  
  604. <+@><:S+-1><:#278,9360>    'Dial the current contact
  605.  
  606. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  607.  
  608. <:#240,9360><:f200,,>        If Box = 7<:f><:f200,,> Then
  609.  
  610. <+@><:S+-1><:#240,9360><:f200,,>            <:f><:f200,,>DDEExecute(ChanNumACT, "DIAL ABSOLUTE")<:><:f>
  611.  
  612. <+@><:S+-1><:#278,9360>            <:f200,,>Call GetContactInfo()
  613.  
  614. <+@><:S+-1><:#240,9360><:f200,,>        EndIf
  615.  
  616. <+@><:S+-1><:#240,9360><:f200,,>        If Box = 8 Then
  617.  
  618. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  619.  
  620. <+@><:S+-1><:#278,9360>    'Populate Lookup Combo Box
  621.  
  622. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  623.  
  624. <+@><:S+-1><:#240,9360><:f200,,>            FillEdit(9501<:f><:f200,,>,"My Record<:f><:f200,,>")<:f>
  625.  
  626. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"Everyone<:f><:f200,,>")<:f>
  627.  
  628. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"Company")<:f>
  629.  
  630. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"First N<:f><:f200,,>ame<:f><:f200,,>")<:f>
  631.  
  632. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"Last Name<:f><:f200,,>")<:f>
  633.  
  634. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"City<:f><:f200,,>")<:f>
  635.  
  636. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"State<:f><:f200,,>")<:f>
  637.  
  638. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"Zip Code<:f><:f200,,>")<:f>
  639.  
  640. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"I/D Status<:f><:f200,,>")<:f>
  641.  
  642. <+@><:S+-1><:#278,9360>            <:f200,,>FillEdit(9501<:f><:f200,,>,"Keyword<:f><:f200,,>")<:f>
  643.  
  644. <+@><:S+-1><:#240,9360><:f200,,>    <:f><:f200,,>    <:f><:f200,,>    Box1 = DialogBox("<:f><:f200,,>.","Lookup<:f><:f200,,>")<:f>
  645.  
  646. <+@><:S+-1><:#278,9360>            <:f200,,>If Box1 = 0 Then
  647.  
  648. <+@><:S+-1><:#240,9360><:f200,,>                Goto EndLookUp
  649.  
  650. <+@><:S+-1><:#240,9360><:f200,,>            EndIf
  651.  
  652. <+@><:S+-1><:#278,9360>    '------------------------------------------------------
  653.  
  654. <+@><:S+-1><:#278,9360>    'Do Lookups based on user selection
  655.  
  656. <+@><:S+-1><:#278,9360>    '--------------------------------------------------------
  657.  
  658. <+@><:S+-1><:#240,9360><:f200,,>            If Box1 = 3<:f><:f200,,> Then
  659.  
  660. <+@><:S+-1><:#240,9360><:f200,,>                Criteria$ = GetDialogField$<:f><:f200,,>(<:f><:f200,,>9501)
  661.  
  662. <+@><:S+-1><:#240,9360><:f200,,>                <:f><:f200,,>Search$ = GetDialogField$<:f><:f200,,>(<:f><:f200,,>8001<:f><:f200,,>)
  663.  
  664. <+@><:S+-1><:#240,9360><:f200,,>                <:f><:f200,,>If Criteria$ = "My Record<:f><:f200,,>" Then
  665.  
  666. <+@><:S+-1><:#240,9360><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP MY_RECORD")<:><:f>
  667.  
  668. <+@><:S+-1><:#240,9360><:f200,,>                EndIf
  669.  
  670. <+@><:S+-1><:f200,,>                If Criteria$ = "Everyone<:f><:f200,,>" then
  671.  
  672. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP EVERYONE")<:><:f>
  673.  
  674. <+@><:S+-1><:f200,,>                EndIf<:f>
  675.  
  676. <+@><:S+-1><:f200,,>                If Criteria$ = "Company<:f><:f200,,>" then
  677.  
  678. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP COMPANY {<:f><:f200,,>Search<:f><:f200,,>$}")<:><:f>
  679.  
  680. <+@><:S+-1><:f200,,>                EndIf<:f>
  681.  
  682. <+@><:S+-1><:f200,,>                If Criteria$ = "First Name<:f><:f200,,>" then
  683.  
  684. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP FIRST_NAME 
  685. <:f><:f200,,>{Search$}")<:f><:>
  686.  
  687. <+@><:S+-1><:f200,,>                EndIf<:f>
  688.  
  689. <+@><:S+-1><:f200,,>                If Criteria$ = "Last Name<:f><:f200,,>" then
  690.  
  691. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP LAST_NAME 
  692. <:f><:f200,,>{Search<:f><:f200,,>$}")<:><:f>
  693.  
  694. <+@><:S+-1><:f200,,>                EndIf<:f>
  695.  
  696. <+@><:S+-1><:f200,,>                If Criteria$ = "City<:f><:f200,,>" then
  697.  
  698. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP CITY {<:f><:f200,,>Search<:f><:f200,,>$}")<:><:f>
  699.  
  700. <+@><:S+-1><:f200,,>                EndIf<:f>
  701.  
  702. <+@><:S+-1><:f200,,>                If Criteria$ = "State<:f><:f200,,>" then
  703.  
  704. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP STATE {<:f><:f200,,>Search<:f><:f200,,>$}")<:><:f>
  705.  
  706. <+@><:S+-1><:f200,,>                EndIf<:f>
  707.  
  708. <+@><:S+-1><:f200,,>                If Criteria$ = "Zip Code<:f><:f200,,>" then
  709.  
  710. <+@><:S+-1><:f200,,>                    'Type ("{Criteria$}  {Search$}")
  711.  
  712. <+@><:S+-1>        <:f200,,>            DDEExecute(ChanNumAct, <:f200,,>"<:f><:f200,,>LOOKUP ZIP<:f><:f200,,> {S<:f><:f200,,>earch$}<:f><:f200,,>"<:f><:f200,,>)<:f>
  713.  
  714. <+@><:S+-1><:f200,,>                EndIf<:f>
  715.  
  716. <+@><:S+-1><:f200,,>                If Criteria$ = "I/D Status<:f><:f200,,>" then
  717.  
  718. <+@><:S+-1><:R1,12,1,720,1,1440,1,2160,1,2880,1,3330,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP ID/STATUS {<:f><:f200,,>Search<:f><:f200,,>$}")<:><:f>
  719.  
  720. <+@><:S+-1><:R><:f200,,>                EndIf<:f>
  721.  
  722. <+@><:S+-1><:f200,,>                If Criteria$ = "Keyword<:f><:f200,,>" then
  723.  
  724. <+@><:S+-1><:f200,,>                    <:f><:f200,,>DDEExecute(ChanNumAct, "LOOKUP KEYWORD {<:f><:f200,,>Search<:f><:f200,,>$}")<:><:f>
  725.  
  726. <+@><:S+-1><:f200,,>                EndIf<:f>
  727.  
  728. <+@><:S+-1><:f200,,>
  729.  
  730. <+@><:S+-1><:f200,,>
  731.  
  732. <+@><:S+-1><:f200,,>
  733.  
  734. <+@><:S+-1><:f200,,>            EndIf
  735.  
  736. <+@><:S+-1><:f200,,>
  737.  
  738. <+@><:S+-1><:f200,,>        EndLookUp:
  739.  
  740. <+@><:S+-1><:f200,,>            Call GetContactInfo()<:f><:f200,,>        
  741.  
  742. <+@><:S+-1><:f200,,>        EndIf
  743.  
  744. <+@><:S+-1>    '------------------------------------------------------
  745.  
  746. <+@><:S+-1>    'Save information back to ACT!
  747.  
  748. <+@><:S+-1>    '--------------------------------------------------------
  749.  
  750. <+@><:S+-1><:f200,,>
  751.  
  752. <+@><:S+-1><:f200,,>        If Box = 9 Then
  753.  
  754. <+@><:S+-1><:f200,,>        <:f><:f200,,>    DBChannel<:f><:f200,,> = DDEInitiate("Actwin", "Database<:f><:f200,,>")<:><:f>
  755.  
  756. <:S+-1><:f200,,>            Name$ = G<:f><:f200,,>etDialogField$(8002<:f><:f200,,>)
  757.  
  758. <:f200,,>            Contact<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8003<:f><:f200,,>)<:f>
  759.  
  760. <:f200,,>            Phone<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8004<:f><:f200,,>)<:f>
  761.  
  762. <:f200,,>            Address<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8005<:f><:f200,,>)<:f>
  763.  
  764. <:f200,,>            Addr1<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8006<:f><:f200,,>)<:f>
  765.  
  766. <:f200,,>            City<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8007<:f><:f200,,>)<:f>
  767.  
  768. <:f200,,>            State<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8008<:f><:f200,,>)<:f>
  769.  
  770. <:f200,,>            Zip<:f><:f200,,>$ = G<:f><:f200,,>etDialogField$(8009<:f><:f200,,>)<:f>
  771.  
  772. <:f200,,>            Results$=GetDialogField$(8010)
  773.  
  774. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Name", Name<:f><:f200,,>$)
  775.  
  776. <+@><:S+-1><:#240,9360>    <:f200,,>        DDEPoke(DBChannel, "Contact", Contact$)
  777.  
  778. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "Phone", Phone$)
  779.  
  780. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "Address", Address<:f><:f200,,>$)
  781.  
  782. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "Addr1", Addr1<:f><:f200,,>$)
  783.  
  784. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "City", City$)
  785.  
  786. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "State", State$)
  787.  
  788. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "Zip_Code", Zip$)
  789.  
  790. <+@><:S+-1>    <:f200,,>        DDEPoke(DBChannel, "Last_Results", Results<:f><:f200,,>$)
  791.  
  792. <+@><:S+-1>    <:f200,,>        DDEExecute(ChanNumAct, "SAVE")
  793.  
  794. <+@><:S+-1>            <:f200,,>DDETerminate(DBChannel)<:f>
  795.  
  796. <+@><:S+-1><:f200,,>            Call GetContactInfo()
  797.  
  798. <+@><:S+-1><:f200,,>        EndIf
  799.  
  800. <+@><:S+-1><:>    '------------------------------------------------------
  801.  
  802. <+@><:S+-1>    'The Cancel button was pressed dismiss dialog
  803.  
  804. <+@><:S+-1>    '--------------------------------------------------------
  805.  
  806. <+@><:S+-1><:f200,,>            
  807.  
  808. <:f200,,>        If Box = 0<:f><:f200,,> Then
  809.  
  810. <:f200,,>            Goto AllDone
  811.  
  812. <:f200,,>        EndIf<:f>
  813.  
  814. <:f200,,>
  815.  
  816. <:f200,,>    Goto ContactBox
  817.  
  818. <:f200,,>    
  819.  
  820. <:f200,,>    AllDone:
  821.  
  822. <:f200,,>    <:f>
  823.  
  824. <+@><:S+-1><:f200,,>End Function<:f>
  825.  
  826. <+@><:S+-1>'-------------------------------------------------------------
  827.  
  828. <+@><:S+-1>'Get contact information from ACT!
  829.  
  830. <+@><:S+-1>'-------------------------------------------------------------
  831.  
  832. <:S+-1><:f200,,>Function GetContactInfo<:f><:f200,,>(<:f><:f200,,>Name$<:f><:f200,,>,Contact$,Phone$,Address$,Addr1$,City$,State$,Zip$,Results$)
  833.  
  834. <+@><:S+-1><:f200,,>    <:f><:f200,,>DBChannel = DDEInitiate("Actwin", "Database")
  835.  
  836. <+@><:S+-1><:f200,,>    <:f><:f200,,>Name$<:f><:f200,,> = DDEReceive$(DBChannel,"Name")<:f>
  837.  
  838. <+@><:S+-1>    <:f200,,>Contact$ = DDEReceive$(DBChannel,"Contact")
  839.  
  840. <+@><:S+-1><:f200,,>    Phone<:f><:f200,,>$ = DDEReceive$(DBChannel,"Phone<:f><:f200,,>")<:f>
  841.  
  842. <+@><:S+-1><:f200,,>    Address<:f><:f200,,>$ = DDEReceive$(DBChannel,"Address<:f><:f200,,>")<:f>
  843.  
  844. <+@><:S+-1><:f200,,>    Addr1<:f><:f200,,>$ = DDEReceive$(DBChannel,"Addr1<:f><:f200,,>")<:f>
  845.  
  846. <+@><:S+-1><:f200,,>    City<:f><:f200,,>$ = DDEReceive$(DBChannel,"City<:f><:f200,,>")<:f>
  847.  
  848. <+@><:S+-1><:f200,,>    State<:f><:f200,,>$ = DDEReceive$(DBChannel,"State<:f><:f200,,>")<:f>
  849.  
  850. <+@><:S+-1><:f200,,>    Zip<:f><:f200,,>$ = DDEReceive$(DBChannel,"Zip_Code<:f><:f200,,>")<:f>
  851.  
  852. <+@><:S+-1><:f200,,>    Results<:f><:f200,,>$ = DDEReceive$(DBChannel,"Last_Results<:f><:f200,,>")<:f>
  853.  
  854. <+@><:S+-1>    '------------------------------------------------------
  855.  
  856. <+@><:S+-1>    'Filter Unwanted CR/LF
  857.  
  858. <+@><:S+-1>    '--------------------------------------------------------
  859.  
  860. <+@><:S+-1>    <:f200,,>If Name<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  861.  
  862. <+@><:S+-1><:f200,,>        Name<:f><:f200,,>$ = ""
  863.  
  864. <+@><:S+-1><:f200,,>    EndIf<:f>
  865.  
  866. <+@><:S+-1><:f200,,>
  867.  
  868. <+@><:S+-1><:>    <:f200,,>If Contact<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  869.  
  870. <+@><:S+-1><:f200,,>        Contact<:f><:f200,,>$ = ""
  871.  
  872. <+@><:S+-1><:f200,,>    EndIf<:f>
  873.  
  874. <+@><:S+-1><:>    <:f200,,>If Phone<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  875.  
  876. <+@><:S+-1><:f200,,>        Phone<:f><:f200,,>$ = ""
  877.  
  878. <+@><:S+-1><:#240,9360><:f200,,>    EndIf<:f>
  879.  
  880. <+@><:S+-1><:#284,9360><:>    <:f200,,>If Address<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  881.  
  882. <+@><:S+-1><:#240,9360><:f200,,>        Address<:f><:f200,,>$ = ""
  883.  
  884. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  885.  
  886. <+@><:S+-1><:#284,9360><:>    <:f200,,>If Addr1<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  887.  
  888. <+@><:S+-1><:#231,9360><:f200,,>        Addr1<:f><:f200,,>$ = ""
  889.  
  890. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  891.  
  892. <+@><:S+-1><:#284,9360><:>    <:f200,,>If City<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  893.  
  894. <+@><:S+-1><:#231,9360><:f200,,>        City<:f><:f200,,>$ = ""
  895.  
  896. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  897.  
  898. <+@><:S+-1><:#284,9360><:>    <:f200,,>If State<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  899.  
  900. <+@><:S+-1><:#231,9360><:f200,,>        State<:f><:f200,,>$ = ""
  901.  
  902. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  903.  
  904. <+@><:S+-1><:#284,9360><:>    <:f200,,>If Zip<:f><:f200,,>$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  905.  
  906. <+@><:S+-1><:#231,9360><:f200,,>        Zip<:f><:f200,,>$ = ""
  907.  
  908. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  909.  
  910. <+@><:S+-1><:#231,9360>    <:f200,,>If Results$ <<<:f><:f200,,> <:f><:f200,,>"<:f><:f200,,>   "<:f><:f200,,> Then
  911.  
  912. <+@><:S+-1><:#231,9360><:f200,,>        Results$ = ""
  913.  
  914. <+@><:S+-1><:#231,9360><:f200,,>    EndIf<:f>
  915.  
  916. <+@><:S+-1><:#284,9360>    '------------------------------------------------------
  917.  
  918. <+@><:S+-1><:#284,9360>    'Populate the dialog
  919.  
  920. <+@><:S+-1><:#284,9360>    '--------------------------------------------------------
  921.  
  922. <+@><:S+-1><:#231,9360><:f200,,>    FillEdit(8002, <:f><:f200,,>Name$<:f><:f200,,>)<:f>
  923.  
  924. <+@><:S+-1><:#231,9360><:f200,,>    FillEdit(8003<:f><:f200,,>, <:f><:f200,,>Contact$<:f><:f200,,>)<:f>
  925.  
  926. <+@><:S+-1><:#231,9360><:f200,,>    FillEdit(8004<:f><:f200,,>, <:f><:f200,,>Phone$<:f><:f200,,>)<:f>
  927.  
  928. <+@><:S+-1><:#231,9360><:f200,,>    FillEdit(8005<:f><:f200,,>, <:f><:f200,,>Address$<:f><:f200,,>)<:f>
  929.  
  930. <+@><:S+-1><:#231,9360><:f200,,>    FillEdit(8006<:f><:f200,,>, <:f><:f200,,>Addr1$<:f><:f200,,>)<:f>
  931.  
  932. <+@><:S+-1><:#231,9360><:><:f200,,>    FillEdit(8007<:f><:f200,,>, <:f><:f200,,>City$<:f><:f200,,>)<:f>
  933.  
  934. <+@><:S+-1><:#231,9360><:><:f200,,>    FillEdit(8008<:f><:f200,,>, <:f><:f200,,>State$<:f><:f200,,>)<:f>
  935.  
  936. <+@><:S+-1><:#231,9360><:><:f200,,>    FillEdit(8009<:f><:f200,,>, <:f><:f200,,>Zip$<:f><:f200,,>)<:f>
  937.  
  938. <+@><:S+-1><:#231,9360><:><:f200,,>    FillEdit(8010<:f><:f200,,>, <:f><:f200,,>Results$<:f><:f200,,>)<:f>
  939.  
  940. <+@><:S+-1><:#231,9360>    <:f200,,>DDETerminate(DBChannel)
  941.  
  942. <+@><:S+-1><:#231,9360><:f200,,>End Function<:f>
  943.  
  944. <+@><:S+-1><:#278,9360>
  945.  
  946. >
  947.  
  948. [Embedded]
  949. 00024026
  950. >
  951. [macsum] 4
  952. MiniACT 0 0 -1 3
  953. Lookup 1287 0 -1 35
  954. Main 1645 9 7 45
  955. GetContactInfo 5670 9 2 233
  956. [macse]
  957. DIALOG MiniACT
  958. -2134376448 26 72 70 224 148 "" "" "MiniACT!" 
  959. 9 7 40 10 1000 1342177280 "static" "Company" 0 
  960. 9 21 40 10 1001 1342177280 "static" "Contact" 0 
  961. 9 36 40 10 1002 1342177280 "static" "Phone" 0 
  962. 9 52 40 10 1003 1342177280 "static" "Address 1" 0 
  963. 9 67 40 10 1005 1342177280 "static" "Address 2" 0 
  964. 9 82 40 10 1006 1342177280 "static" "City" 0 
  965. 9 97 40 10 1007 1342177280 "static" "State" 0 
  966. 9 112 40 10 1008 1342177280 "static" "Zip" 0 
  967. 9 128 60 10 1009 1342177280 "static" "Last Results" 0 
  968. 53 4 103 12 8002 1350631552 "edit" "" 0 
  969. 53 20 103 12 8003 1350631552 "edit" "" 0 
  970. 53 35 63 12 8004 1350631552 "edit" "" 0 
  971. 53 50 103 12 8005 1350631552 "edit" "" 0 
  972. 53 65 103 12 8006 1350631552 "edit" "" 0 
  973. 53 80 63 12 8007 1350631552 "edit" "" 0 
  974. 53 96 103 12 8008 1350631552 "edit" "" 0 
  975. 53 111 47 12 8009 1350631552 "edit" "" 0 
  976. 53 126 103 12 8010 1350631552 "edit" "" 0 
  977. 176 124 40 14 2 1342373889 "button" "Cancel" 0 
  978. 176 4 40 14 3 1342373888 "button" "&Next" 0 
  979. 176 22 40 14 4 1342373888 "button" "&Previous" 0 
  980. 176 40 40 14 5 1342373888 "button" "&Insert" 0 
  981. 176 56 40 14 6 1342373888 "button" "&Address" 0 
  982. 176 73 40 14 7 1342373888 "button" "&Dial" 0 
  983. 176 90 40 14 8 1342373888 "button" "&Lookup" 0 
  984. 176 107 40 14 9 1342373888 "button" "&Save" 0 
  985. DIALOG Lookup
  986. -2134376448 6 80 82 221 67 "" "" "MiniACT! LookUp" 
  987. 16 19 88 95 9501 1344274435 "combobox" "" 0 
  988. 120 19 88 12 8001 1350631552 "edit" "" 0 
  989. 16 8 52 10 1000 1342177280 "static" "Lookup Type" 0 
  990. 120 8 40 10 1001 1342177280 "static" "Lookup Text" 0 
  991. 120 41 40 14 3 1342373889 "button" "OK" 0 
  992. 172 41 40 14 2 1342373888 "button" "Cancel" 0 
  993. 14 Main
  994. 0 4 0
  995. 17 2
  996. 29 10 ChanNumAct
  997. 0 8 "Actwin" "System"
  998. 13
  999. 8 10
  1000. 17 4
  1001. 6 10
  1002. 5 0
  1003. 18 0
  1004. 11 00000137
  1005. 17 5
  1006. 0 22 "ACTWIN.EXE" ""
  1007. 17 7
  1008. 16 GetContactInfo
  1009. 17 12
  1010. 29 11 Box
  1011. 0 26 "." "MINIACT"
  1012. 13
  1013. 8 11
  1014. 17 13
  1015. 6 11
  1016. 5 3
  1017. 18 0
  1018. 11 00000303
  1019. 17 14
  1020. 0 11 "{10}" "NEXTREC"
  1021. 17 15
  1022. 16 GetContactInfo
  1023. 17 20
  1024. 6 11
  1025. 5 4
  1026. 18 0
  1027. 11 00000396
  1028. 17 21
  1029. 0 11 "{10}" "PREVREC"
  1030. 17 22
  1031. 16 GetContactInfo
  1032. 17 27
  1033. 6 11
  1034. 5 5
  1035. 18 0
  1036. 11 00001167
  1037. 17 28
  1038. 0 11 "{10}" "NEW_CONTACT DEFAULT"
  1039. 17 29
  1040. 29 12 DBChannel
  1041. 0 8 "Actwin" "Database"
  1042. 13
  1043. 8 12
  1044. 17 30
  1045. 0 27 8002
  1046. 13
  1047. 8 0
  1048. 17 31
  1049. 0 27 8003
  1050. 13
  1051. 8 1
  1052. 17 32
  1053. 0 27 8004
  1054. 13
  1055. 8 2
  1056. 17 33
  1057. 0 27 8005
  1058. 13
  1059. 8 3
  1060. 17 34
  1061. 0 27 8006
  1062. 13
  1063. 8 4
  1064. 17 35
  1065. 0 27 8007
  1066. 13
  1067. 8 5
  1068. 17 36
  1069. 0 27 8008
  1070. 13
  1071. 8 6
  1072. 17 37
  1073. 0 27 8009
  1074. 13
  1075. 8 7
  1076. 17 38
  1077. 0 27 8010
  1078. 13
  1079. 8 8
  1080. 17 39
  1081. 0 35 "{12}" "Name" "{0}"
  1082. 17 40
  1083. 0 35 "{12}" "Contact" "{1}"
  1084. 17 41
  1085. 0 35 "{12}" "Phone" "{2}"
  1086. 17 42
  1087. 0 35 "{12}" "Address" "{3}"
  1088. 17 43
  1089. 0 35 "{12}" "Addr1" "{4}"
  1090. 17 44
  1091. 0 35 "{12}" "City" "{5}"
  1092. 17 45
  1093. 0 35 "{12}" "State" "{6}"
  1094. 17 46
  1095. 0 35 "{12}" "Zip_Code" "{7}"
  1096. 17 47
  1097. 0 35 "{12}" "Last_Results" "{8}"
  1098. 17 48
  1099. 0 11 "{10}" "SAVE"
  1100. 17 49
  1101. 0 9 "{12}"
  1102. 17 50
  1103. 16 GetContactInfo
  1104. 17 55
  1105. 6 11
  1106. 5 6
  1107. 18 0
  1108. 11 00001619
  1109. 17 56
  1110. 0 27 8002
  1111. 13
  1112. 8 0
  1113. 17 57
  1114. 0 27 8003
  1115. 13
  1116. 8 1
  1117. 17 58
  1118. 0 27 8005
  1119. 13
  1120. 8 3
  1121. 17 59
  1122. 0 27 8006
  1123. 13
  1124. 8 4
  1125. 17 60
  1126. 0 27 8007
  1127. 13
  1128. 8 5
  1129. 17 61
  1130. 0 27 8008
  1131. 13
  1132. 8 6
  1133. 17 62
  1134. 0 27 8009
  1135. 13
  1136. 8 7
  1137. 17 63
  1138. 0 6 "{1}[13]"
  1139. 17 64
  1140. 0 6 "{0}[13]"
  1141. 17 65
  1142. 6 3
  1143. 7 "   "
  1144. 18 3
  1145. 11 00001499
  1146. 17 66
  1147. 0 6 "{3}[13]"
  1148. 17 68
  1149. 6 4
  1150. 7 "   "
  1151. 18 3
  1152. 11 00001561
  1153. 17 69
  1154. 0 6 "{4}[13]"
  1155. 17 71
  1156. 0 6 "{5}, {6} {7} [13]"
  1157. 17 72
  1158. 16 GetContactInfo
  1159. 17 77
  1160. 6 11
  1161. 5 7
  1162. 18 0
  1163. 11 00001718
  1164. 17 78
  1165. 0 11 "{10}" "DIAL ABSOLUTE"
  1166. 17 79
  1167. 16 GetContactInfo
  1168. 17 81
  1169. 6 11
  1170. 5 8
  1171. 18 0
  1172. 11 00003190
  1173. 17 85
  1174. 0 31 9501 "My Record"
  1175. 17 86
  1176. 0 31 9501 "Everyone"
  1177. 17 87
  1178. 0 31 9501 "Company"
  1179. 17 88
  1180. 0 31 9501 "First Name"
  1181. 17 89
  1182. 0 31 9501 "Last Name"
  1183. 17 90
  1184. 0 31 9501 "City"
  1185. 17 91
  1186. 0 31 9501 "State"
  1187. 17 92
  1188. 0 31 9501 "Zip Code"
  1189. 17 93
  1190. 0 31 9501 "I/D Status"
  1191. 17 94
  1192. 0 31 9501 "Keyword"
  1193. 17 95
  1194. 29 13 Box1
  1195. 0 26 "." "Lookup"
  1196. 13
  1197. 8 13
  1198. 17 96
  1199. 6 13
  1200. 5 0
  1201. 18 0
  1202. 11 00002147
  1203. 17 97
  1204. 10 00003163
  1205. 17 102
  1206. 6 13
  1207. 5 3
  1208. 18 0
  1209. 11 00003163
  1210. 17 103
  1211. 29 14 Criteria$
  1212. 0 27 9501
  1213. 13
  1214. 8 14
  1215. 17 104
  1216. 29 15 Search$
  1217. 0 27 8001
  1218. 13
  1219. 8 15
  1220. 17 105
  1221. 6 14
  1222. 7 "My Record"
  1223. 18 0
  1224. 11 00002363
  1225. 17 106
  1226. 0 11 "{10}" "LOOKUP MY_RECORD"
  1227. 17 108
  1228. 6 14
  1229. 7 "Everyone"
  1230. 18 0
  1231. 11 00002449
  1232. 17 109
  1233. 0 11 "{10}" "LOOKUP EVERYONE"
  1234. 17 111
  1235. 6 14
  1236. 7 "Company"
  1237. 18 0
  1238. 11 00002538
  1239. 17 112
  1240. 0 11 "{10}" "LOOKUP COMPANY {15}"
  1241. 17 114
  1242. 6 14
  1243. 7 "First Name"
  1244. 18 0
  1245. 11 00002633
  1246. 17 115
  1247. 0 11 "{10}" "LOOKUP FIRST_NAME {15}"
  1248. 17 117
  1249. 6 14
  1250. 7 "Last Name"
  1251. 18 0
  1252. 11 00002726
  1253. 17 118
  1254. 0 11 "{10}" "LOOKUP LAST_NAME {15}"
  1255. 17 120
  1256. 6 14
  1257. 7 "City"
  1258. 18 0
  1259. 11 00002809
  1260. 17 121
  1261. 0 11 "{10}" "LOOKUP CITY {15}"
  1262. 17 123
  1263. 6 14
  1264. 7 "State"
  1265. 18 0
  1266. 11 00002894
  1267. 17 124
  1268. 0 11 "{10}" "LOOKUP STATE {15}"
  1269. 17 126
  1270. 6 14
  1271. 7 "Zip Code"
  1272. 18 0
  1273. 11 00002980
  1274. 17 128
  1275. 0 11 "{10}" "LOOKUP ZIP {15}"
  1276. 17 130
  1277. 6 14
  1278. 7 "I/D Status"
  1279. 18 0
  1280. 11 00003074
  1281. 17 131
  1282. 0 11 "{10}" "LOOKUP ID/STATUS {15}"
  1283. 17 133
  1284. 6 14
  1285. 7 "Keyword"
  1286. 18 0
  1287. 11 00003163
  1288. 17 134
  1289. 0 11 "{10}" "LOOKUP KEYWORD {15}"
  1290. 17 142
  1291. 16 GetContactInfo
  1292. 17 148
  1293. 6 11
  1294. 5 9
  1295. 18 0
  1296. 11 00003925
  1297. 17 149
  1298. 0 8 "Actwin" "Database"
  1299. 13
  1300. 8 12
  1301. 17 150
  1302. 0 27 8002
  1303. 13
  1304. 8 0
  1305. 17 151
  1306. 0 27 8003
  1307. 13
  1308. 8 1
  1309. 17 152
  1310. 0 27 8004
  1311. 13
  1312. 8 2
  1313. 17 153
  1314. 0 27 8005
  1315. 13
  1316. 8 3
  1317. 17 154
  1318. 0 27 8006
  1319. 13
  1320. 8 4
  1321. 17 155
  1322. 0 27 8007
  1323. 13
  1324. 8 5
  1325. 17 156
  1326. 0 27 8008
  1327. 13
  1328. 8 6
  1329. 17 157
  1330. 0 27 8009
  1331. 13
  1332. 8 7
  1333. 17 158
  1334. 0 27 8010
  1335. 13
  1336. 8 8
  1337. 17 159
  1338. 0 35 "{12}" "Name" "{0}"
  1339. 17 160
  1340. 0 35 "{12}" "Contact" "{1}"
  1341. 17 161
  1342. 0 35 "{12}" "Phone" "{2}"
  1343. 17 162
  1344. 0 35 "{12}" "Address" "{3}"
  1345. 17 163
  1346. 0 35 "{12}" "Addr1" "{4}"
  1347. 17 164
  1348. 0 35 "{12}" "City" "{5}"
  1349. 17 165
  1350. 0 35 "{12}" "State" "{6}"
  1351. 17 166
  1352. 0 35 "{12}" "Zip_Code" "{7}"
  1353. 17 167
  1354. 0 35 "{12}" "Last_Results" "{8}"
  1355. 17 168
  1356. 0 11 "{10}" "SAVE"
  1357. 17 169
  1358. 0 9 "{12}"
  1359. 17 170
  1360. 16 GetContactInfo
  1361. 17 176
  1362. 6 11
  1363. 5 0
  1364. 18 0
  1365. 11 00003984
  1366. 17 177
  1367. 10 00004005
  1368. 17 180
  1369. 10 00000162
  1370. 6 9
  1371. 15
  1372. 17 184
  1373. 9
  1374. 14 GetContactInfo
  1375. 29 0 Name$
  1376. 29 1 Contact$
  1377. 29 2 Phone$
  1378. 29 3 Address$
  1379. 29 4 Addr1$
  1380. 29 5 City$
  1381. 29 6 State$
  1382. 29 7 Zip$
  1383. 29 8 Results$
  1384. 29 9 GetContactInfo
  1385. 17 1
  1386. 29 10 DBChannel
  1387. 0 8 "Actwin" "Database"
  1388. 13
  1389. 8 10
  1390. 17 2
  1391. 0 10 "{10}" "Name"
  1392. 13
  1393. 8 0
  1394. 17 3
  1395. 0 10 "{10}" "Contact"
  1396. 13
  1397. 8 1
  1398. 17 4
  1399. 0 10 "{10}" "Phone"
  1400. 13
  1401. 8 2
  1402. 17 5
  1403. 0 10 "{10}" "Address"
  1404. 13
  1405. 8 3
  1406. 17 6
  1407. 0 10 "{10}" "Addr1"
  1408. 13
  1409. 8 4
  1410. 17 7
  1411. 0 10 "{10}" "City"
  1412. 13
  1413. 8 5
  1414. 17 8
  1415. 0 10 "{10}" "State"
  1416. 13
  1417. 8 6
  1418. 17 9
  1419. 0 10 "{10}" "Zip_Code"
  1420. 13
  1421. 8 7
  1422. 17 10
  1423. 0 10 "{10}" "Last_Results"
  1424. 13
  1425. 8 8
  1426. 17 14
  1427. 6 0
  1428. 7 "   "
  1429. 18 5
  1430. 11 00000612
  1431. 17 15
  1432. 7 ""
  1433. 8 0
  1434. 17 18
  1435. 6 1
  1436. 7 "   "
  1437. 18 5
  1438. 11 00000670
  1439. 17 19
  1440. 7 ""
  1441. 8 1
  1442. 17 21
  1443. 6 2
  1444. 7 "   "
  1445. 18 5
  1446. 11 00000728
  1447. 17 22
  1448. 7 ""
  1449. 8 2
  1450. 17 24
  1451. 6 3
  1452. 7 "   "
  1453. 18 5
  1454. 11 00000786
  1455. 17 25
  1456. 7 ""
  1457. 8 3
  1458. 17 27
  1459. 6 4
  1460. 7 "   "
  1461. 18 5
  1462. 11 00000844
  1463. 17 28
  1464. 7 ""
  1465. 8 4
  1466. 17 30
  1467. 6 5
  1468. 7 "   "
  1469. 18 5
  1470. 11 00000902
  1471. 17 31
  1472. 7 ""
  1473. 8 5
  1474. 17 33
  1475. 6 6
  1476. 7 "   "
  1477. 18 5
  1478. 11 00000960
  1479. 17 34
  1480. 7 ""
  1481. 8 6
  1482. 17 36
  1483. 6 7
  1484. 7 "   "
  1485. 18 5
  1486. 11 00001018
  1487. 17 37
  1488. 7 ""
  1489. 8 7
  1490. 17 39
  1491. 6 8
  1492. 7 "   "
  1493. 18 5
  1494. 11 00001076
  1495. 17 40
  1496. 7 ""
  1497. 8 8
  1498. 17 45
  1499. 0 31 8002 "{0}"
  1500. 17 46
  1501. 0 31 8003 "{1}"
  1502. 17 47
  1503. 0 31 8004 "{2}"
  1504. 17 48
  1505. 0 31 8005 "{3}"
  1506. 17 49
  1507. 0 31 8006 "{4}"
  1508. 17 50
  1509. 0 31 8007 "{5}"
  1510. 17 51
  1511. 0 31 8008 "{6}"
  1512. 17 52
  1513. 0 31 8009 "{7}"
  1514. 17 53
  1515. 0 31 8010 "{8}"
  1516. 17 54
  1517. 0 9 "{10}"
  1518. 6 9
  1519. 15
  1520. 17 55
  1521. 9
  1522. 00024051
  1523.